*Eksperiment 1: Lufthavn/Vinmølle
**Datasæt: "Klimadatasæt 1, eksperiment 1, omkodet"

***Panel A
reg Index_protest_experiment i.Condition_lufthavn##c.Q24_bekymring_klimaR
margins i.Condition_lufthavn, at(c.Q24_bekymring_klimaR=(1(1)11)) 
marginsplot, recast(line) recastci(rarea) xtitle(Climate concern) ytitle(Predicted protest willingness) title("")

***Panel B
reg Index_protest_experiment i.Condition_vindmølle##c.Q24_bekymring_klimaR
margins i.Condition_vindmølle, at(c.Q24_bekymring_klimaR=(1(1)11)) 
marginsplot, recast(line) recastci(rarea) xtitle(Climate concern) ytitle(Predicted protest willingness) title("")

*****************************************************************************************************************

*Eksperiment 2: Fly vs. Tog
**Datasæt: "Klimadatasæt 2, eksperiment 2, omkodet"

***Panel A: Full sample
reg b2_Q11_1_Slider c.Q24_bekymring_klimaR##i.b2_Q11_condition
margins i.b2_Q11_condition, at(c.Q24_bekymring_klimaR=(1(1)11)) 
marginsplot, recast(line) recastci(rarea) xtitle(Climate concern) ytitle(Predicted likelihood of choosing train) title("")

***Panel B: Excluding inattentive respondents
*Excluding inattentive respondents
drop if b2_Q11_condition==1 & b2_Q11_TEST_NEW!=2
drop if b2_Q11_condition==2 & b2_Q11_TEST_NEW!=4
drop if b2_Q11_condition==3 & b2_Q11_TEST_NEW!=6


*bivariate korrelationer med signifikans test
pwcorr Index_protest_experiment Q24_bekymring_klimaR if Q11_condition==1, sig star(0.05)
pwcorr Index_protest_experiment Q24_bekymring_klimaR if Q11_condition==2, sig star(0.05)

pwcorr Index_protest_experiment Q24_bekymring_klimaR if Q11_condition==3, sig star(0.05)
pwcorr Index_protest_experiment Q24_bekymring_klimaR if Q11_condition==4, sig star(0.05)
